home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_121_(06-1985).d64
/
decision maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
122 lines
1 POKE 53281,1: FOR I=1 TO 7: POKE 53280,I
2 PRINT"[147] YES NO"
3 PRINT" DECISION": FOR T=1 TO 200:NEXT T
4 PRINT"[147] YES NO"
5 PRINT" DECISION"
6 FOR T=1 TO 200:NEXT T
7 NEXT I
8 GOSUB 4000
10 PRINT CHR$(147)
30 DIM I(10,10)
120 PRINT " DECISION MAKER"
130 PRINT
140 PRINT "PLEASE TYPE A LIST ";
150 PRINT "OF THE OPTIONS YOU "
160 PRINT "ARE CONDIDERING. ";
170 PRINT "ANY ORDER WILL DO. "
180 GOSUB 2000
190 C=1
200 D$="DONE"
210 INPUT A$(C)
240 IF A$(C)=D$ THEN 300
250 C=C+1
290 GOTO 210
300 TA=C-1
310 PRINT CHR$(147)
320 PRINT "PLEASE TYPE A LIST ";
330 PRINT "OF FACTORS THAT ARE "
340 PRINT "IMPORTANT IN MAKING ";
350 PRINT "THIS DECISION."
360 GOSUB 2000
370 C=1
380 INPUT F$(C)
410 IF F$(C)=D$ THEN 470
450 C=C+1
460 GOTO 380
470 TF=C-1
480 PRINT CHR$(147)
490 PRINT "PLEASE RATE THE ";
500 PRINT "THE RELATIVE IMPORTANCE "
510 PRINT "OF EACH FACTOR ON A ";
520 PRINT "SCALE OF 1 TO 10 (10"
530 PRINT "BEING THE HIGHEST)."
540 GOSUB 3000
550 FOR C=1 TO TF
560 PRINT
570 PRINT F$(C);
580 INPUT RF(C)
590 IF RF(C)<1 OR RF(C)>10 THEN 580
610 NEXT C
620 FOR C=1 TO TA
630 PRINT CHR$(147)
640 PRINT "PLEASE RATE, ON A ";
650 PRINT "SCALE OF 1 TO 10,";
669 PRINT "THE AMOUNT EACH ";
670 PRINT "FACTOR SUPPORTS "
680 PRINT "CHOOSING THE OPTION"
690 PRINT
700 PRINT A$(C)
710 GOSUB 3000
720 PRINT "WHAT IS THE RATING "
730 PRINT "OF ";A$(C)
740 PRINT "FOR THE FACTOR..."
750 FOR IC=1 TO TF
760 PRINT
770 PRINT F$(IC);
780 INPUT I(C,IC)
790 IF I(C,IC)<1 OR I(C,IC)>10 THEN 780
800 NEXT IC
830 NEXTC
840 PRINT CHR$(147)
850 PRINT "CALCULATING RESULTS"
860 FOR C=1 TO TA
870 FOR IC=1 TO TF
880 TR(C)=TR(C)+I(C,IC)*RF(IC)
890 NEXT IC
900 NEXT C
910 W=1
920 FOR C=2 TO TA
930 IF TR(C)>TR(W) THEN W=C
950 NEXT C
960 POKE 54296,15
970 POKE 64278,228
980 POKE 54273,57
990 POKE 54276,33
1000 FOR T = 1 TO 200
1010 NEXT T
1020 POKE 54276,0
1030 PRINT CHR$(147)
1040 PRINT A$(W)
1050 PRINT "HAD THE HIGHEST ";
1060 PRINT "OVERALL RATING WITH "
1070 PRINT TR(W);" POINTS."
1080 PRINT
1090 PRINT "THE OTHER OPTIONS ";
1100 PRINT "RATED AS FOLLOWS:"
1110 PRINT
1120 FOR C=1 TO TA
1130 IF C=W THEN 1150
1140 PRINT TR(C),A$(C)
1150 NEXT C
1160 END
2000 GOSUB 3000
2010 PRINT "TYPE THE WORD ";CHR$(34);"DONE";CHR$(34);" ";
2020 PRINT "AND PRESS <RETURN> "
2030 PRINT "WHEN YOU HAVE ";
2040 PRINT "FINISHED THE TYPING THE ";
2050 PRINT " LIST."
2060 PRINT
2070 RETURN
3000 PRINT
3010 PRINT "PRESS <RETURN> AFTER ";
3020 PRINT "EACH ENTRY."
3030 RETURN
4000 PRINT"[147] [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
4010 [153]" PEEKDECISION MAKERPEEK"
4015 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
4016 PRINT" "
4020 PRINT" COPYRIGHT 1984 GLEN DANZ"
4021 PRINT" AND ROBERT REED"
4030 FOR T=1 TO 2000:NEXT T
5000 RETURN